home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
develop, the CD; issue 1
/
Apple_Develop_1989.bin
/
Offscreen
/
FracApp 2.0B3
/
MFracApp.p
< prev
next >
Wrap
Text File
|
1989-06-19
|
2KB
|
62 lines
{AutoFracApp Color:
copyright 1988 by Bob. All rights reserved.
February 1, 1988.
Written by Bo3b Johnson of Developer Technical Support. }
PROGRAM FracApp;
{ Strange but true, you cannot compile this file with the 881 flag turned on,
or you will not be able to test for an 881 in the environment before you
crash, making it unacceptable for older machines. }
{$MC68020-} { The main program must be universal code }
{$MC68881-}
USES
{$LOAD MacIntf.LOAD}
MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf,
{$LOAD UMacApp.LOAD}
UMacAppUtilities, UViewCoords, UFailure, UMemory, UMenuSetup, UObject,
UList, UAssociation, UMacApp,
{$LOAD UBobLips.LOAD}
PaletteMgr, UPrinting,
{$LOAD}
UFracApp;
VAR
{The application object:}
gFracAppApplication: TFracAppApplication;
{$S Main}
BEGIN
InitToolbox; { So we can put up an alert if needed. }
{ This ValidateConfiguration routine is automatic. It takes the compile time
options specified and turns them into a list of tests to make against the
current sysenvirons record. If any test compiled in fails, we can't run. In
this case, we only care about the FPU. }
IF ValidateConfiguration(gConfiguration) THEN
BEGIN
{ Continue with remainder of initialization }
InitUMacApp(10); { Initialize MacApp; 10 calls to MoreMasters }
InitUPrinting; { Initialize the printing unit}
{Allocate a new TFracAppApplication object:}
NEW(gFracAppApplication);
FailNil(gFracAppApplication);
{Initialize that new object:}
gFracAppApplication.IFracAppApplication(kFileType);
{Run the application. When it's done, exit.}
gFracAppApplication.Run;
END
ELSE
StdAlert(phUnsupportedConfiguration); { Inform user we can't run. }
END.